home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / apps2 / biostuff.lzx / day.opl < prev    next >
Text File  |  2006-01-07  |  961b  |  69 lines
  1. proc JADDAY:
  2. LOCAL D$(6),A1,D1,D1%,N1%,Y1%,D2%,N2%,Y2%,KEY%
  3. ESCAPE ON
  4.  
  5. TOP::
  6. CLS
  7. PRINT"1 or 2";CHR$(63)
  8. INPUT A1
  9. IF A1=1
  10.  GOTO ONE::
  11. ELSEIF A1=2
  12.  GOTO ONE::
  13. ELSE GOTO TOP::
  14. ENDIF
  15.  
  16.  
  17. ONE::
  18. CLS
  19. PRINT"Day1";CHR$(63)
  20. INPUT D1%
  21. PRINT"Month1";CHR$(63)
  22. INPUT N1%
  23. PRINT"Year1";CHR$(63)
  24. INPUT Y1%
  25. IF A1=1
  26.  GOTO DAY::
  27. ELSEIF A1=2
  28.  GOTO TWO::
  29. ENDIF
  30.  
  31. TWO::
  32. CLS
  33. PRINT"Day2";CHR$(63)
  34. INPUT D2%
  35. PRINT"Month2";CHR$(63)
  36. INPUT N2%
  37. PRINT"Year2";CHR$(63)
  38. INPUT Y2%
  39. CLS
  40. PRINT D1%;"/";N1%;"/";Y1%
  41. PRINT "   - ";D2%;"/";N2%;"/";Y2%
  42. D1%=DAYS(D2%,N2%,Y2%)-DAYS(D1%,N1%,Y1%)
  43. PRINT "=";D1%;"Days/";FIX$(D1%/365.25,2,9);"Yrs"
  44. MORE::
  45. PRINT "Again(Y/N)";CHR$(63)
  46. KEY%=GET
  47. IF KEY%=%n
  48. RETURN
  49. ELSEIF KEY%=%y
  50.  GOTO TOP::
  51. ELSE GOTO MORE::
  52. ENDIF
  53.  
  54. DAY::
  55. D2%=DOW(D1%,N1%,Y1%)
  56. IF D2%=2
  57.  D$="sday"
  58. ELSEIF D2%=3
  59.  D$="nesday"
  60. ELSEIF D2%=4
  61.  D$="rsday"
  62. ELSEIF D2%=6
  63.  D$="urday"
  64. ELSE D$="day"
  65. ENDIF
  66. PRINT DAYNAME$(D2%);D$
  67. GOTO MORE::
  68. endp
  69.